home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / Starsiege / tribesdemo.exe / Disk1 / data1.cab / Tribes_Demo / base / scripts.vol / station.cs < prev    next >
Encoding:
Text File  |  1999-09-14  |  31.0 KB  |  1,028 lines
  1. //----------------------------------------------------------------------------
  2.  
  3. //----------------------------------------------------------------------------
  4.  
  5. //----------------------------------------------------------------------------
  6.  
  7. // List of all items available to buy from inventory station
  8. $InvList[Blaster] = 1;
  9. $InvList[Chaingun] = 1;
  10. $InvList[Disclauncher] = 1;
  11. $InvList[GrenadeLauncher] = 1;
  12. $InvList[Mortar] = 1;
  13. $InvList[PlasmaGun] = 1;
  14. $InvList[LaserRifle] = 1;
  15. $InvList[EnergyRifle] = 1;
  16. $InvList[TargetingLaser] = 1;
  17. $InvList[MineAmmo] = 1;
  18. $InvList[Grenade] = 1;
  19. $InvList[Beacon] = 1;
  20.  
  21. $InvList[BulletAmmo] = 1;
  22. $InvList[PlasmaAmmo] = 1;
  23. $InvList[DiscAmmo] = 1;
  24. $InvList[GrenadeAmmo] = 1;
  25. $InvList[MortarAmmo] = 1;
  26.   
  27. $InvList[EnergyPack] = 1;
  28. $InvList[RepairPack] = 1;
  29. $InvList[ShieldPack] = 1;
  30. $InvList[SensorJammerPack] = 1;
  31. $InvList[MotionSensorPack] = 1;
  32. $InvList[PulseSensorPack] = 1;
  33. $InvList[DeployableSensorJammerPack] = 1;
  34. $InvList[CameraPack] = 1;
  35. $InvList[TurretPack] = 1;
  36. $InvList[AmmoPack] = 1;
  37. $InvList[RepairKit] = 1;
  38. $InvList[DeployableInvPack] = 1;
  39. $InvList[DeployableAmmoPack] = 1;
  40.  
  41. //----------------------------------------------------------------------------
  42.  
  43. // List of all items available to buy from Remote Station
  44. $RemoteInvList[Blaster] = 1;
  45. $RemoteInvList[Chaingun] = 1;
  46. $RemoteInvList[Disclauncher] = 1;
  47. $RemoteInvList[GrenadeLauncher] = 1;
  48. $RemoteInvList[Mortar] = 1;
  49. $RemoteInvList[PlasmaGun] = 1;
  50. $RemoteInvList[LaserRifle] = 1;
  51. $RemoteInvList[EnergyRifle] = 1;
  52. $RemoteInvList[TargetingLaser] = 1;
  53. $RemoteInvList[MineAmmo] = 1;
  54. $RemoteInvList[Grenade] = 1;
  55. $RemoteInvList[Beacon] = 1;
  56.  
  57. $RemoteInvList[BulletAmmo] = 1;
  58. $RemoteInvList[PlasmaAmmo] = 1;
  59. $RemoteInvList[DiscAmmo] = 1;
  60. $RemoteInvList[GrenadeAmmo] = 1;
  61. $RemoteInvList[MortarAmmo] = 1;
  62.   
  63. $RemoteInvList[EnergyPack] = 1;
  64. $RemoteInvList[RepairPack] = 1;
  65. $RemoteInvList[ShieldPack] = 1;
  66. $RemoteInvList[SensorJammerPack] = 1;
  67. $RemoteInvList[MotionSensorPack] = 1;
  68. $RemoteInvList[PulseSensorPack] = 1;
  69. $RemoteInvList[DeployableSensorJammerPack] = 1;
  70. $RemoteInvList[CameraPack] = 1;
  71. $RemoteInvList[TurretPack] = 1;
  72. $RemoteInvList[AmmoPack] = 1;
  73. $RemoteInvList[RepairKit] = 1;
  74.  
  75. //----------------------------------------------------------------------------
  76.  
  77. // List of all items available to buy from Vehicle station
  78. $VehicleInvList[ScoutVehicle] = 1;
  79. $VehicleInvList[LAPCVehicle] = 1;
  80. $VehicleInvList[HAPCVehicle] = 1;
  81.  
  82. //----------------------------------------------------------------------------
  83.  
  84. $DataBlockName[ScoutVehicle] = Scout;
  85. $DataBlockName[LAPCVehicle] = LAPC;
  86. $DataBlockName[HAPCVehicle] = HAPC;
  87.  
  88. $VehicleToItem[Scout] = ScoutVehicle;
  89. $VehicleToItem[LAPC] = LAPCVehicle;
  90. $VehicleToItem[HAPC] = HAPCVehicle;
  91.  
  92.  
  93. //----------------------------------------------------------------------------
  94. // Default station animations
  95.  
  96. function Station::onActivate(%this)
  97. {
  98.     //echo("Activate " @ %this);
  99.     %obj = Station::getTarget(%this);
  100.     if (%obj != -1) {
  101.         GameBase::playSequence(%this,1,"activate");
  102.         GameBase::setSequenceDirection(%this,1,1);
  103.         %this.lastPlayer = %obj;
  104.     }
  105.     else 
  106.         GameBase::setActive(%this,false);
  107. }
  108.  
  109. function Station::onDeactivate(%this)
  110. {
  111.     //echo("Dectivate " @ %this);
  112.     GameBase::stopSequence(%this,2);
  113.     GameBase::setSequenceDirection(%this,1,0);
  114. }
  115.  
  116. function Station::onEndSequence(%this,%thread)
  117. {
  118.     //echo("End sequence " @ %this);
  119.      if (%thread == 1 && GameBase::isActive(%this)) {
  120.         GameBase::playSequence(%this,2,"use");
  121.         return true;
  122.     }
  123.     %client = %this.target;
  124.     if(%client == "") {
  125.         %player = Station::getTarget(%this);
  126.         %client = Player::getClient(%player);
  127.     }
  128.     if(%client != "") {
  129.         if(Client::getGuiMode(%client) != 1)
  130.             Client::setGuiMode(%client,1);
  131.         
  132.         %team = Client::getTeam(%client);
  133.         if($TeamEnergy[%team] != "Infinite") {
  134.             if(%this.clTeamEnergy != %client.TeamEnergy) {
  135.                 if(%client.teamEnergy < 0)
  136.                     Client::sendMessage(%client,0,"Your total mission purchases have come to " @ (%client.teamEnergy * -1) @ ".");
  137.                 else
  138.                     Client::sendMessage(%client,0,"You have increased the Team Energy by " @ %client.teamEnergy @ ".");
  139.             }
  140.             if((%client.teamEnergy -%client.EnergyWarning < $TeammateSpending) && ($TeammateSpending != 0) && !$TeamEnergyCheat) {
  141.                 TeamMessages(0, %team, "Teammate " @ Client::getName(%client) @ " has spent " @ (%client.teamEnergy *-1) @ " of the TeamEnergy"); 
  142.                 %client.EnergyWarning = %client.teamEnergy;
  143.             }
  144.             if($TeamEnergy[%team] < $WarnEnergyLow)  
  145.                 TeamMessages(0, %team, "TeamEnergy Low: " @ $TeamEnergy[%team]); 
  146.         }
  147.     }
  148.     if(%this.target != "") {
  149.         (Client::getOwnedObject(%this.target)).Station = "";
  150.         %this.target = "";
  151.     }
  152.     if(GameBase::getDataName(%this) == VehicleStation && %this.vehiclePad.busy < getSimTime())
  153.         VehiclePad::checkSeq(%this.vehiclePad, %this);
  154.     %this.clTeamEnergy = "";
  155.     return false;
  156. }
  157.  
  158. function Station::onPower(%this,%power,%generator)
  159. {
  160.     if (%power) {
  161.         GameBase::playSequence(%this,0,"power");
  162.         GameBase::playSequence(%this,1);
  163.     }
  164.     else {
  165.         GameBase::stopSequence(%this,0);
  166.         GameBase::pauseSequence(%this,1);
  167.         GameBase::pauseSequence(%this,2);
  168.         Station::checkTarget(%this);
  169.     }
  170. }
  171.  
  172. function Station::onEnabled(%this)
  173. {
  174.     if (GameBase::isPowered(%this)) {        
  175.         GameBase::playSequence(%this,0,"power");
  176.         GameBase::playSequence(%this,1);
  177.     }
  178. }
  179.  
  180. function Station::checkTarget(%this)
  181. {
  182.     if(%this.target) {
  183.         Client::setGuiMode(%this.target,1);
  184.         GameBase::setActive(%this,false);
  185.     }
  186. }
  187.  
  188. function Station::onDisabled(%this)
  189. {
  190.     Station::weaponCheck(%this);
  191.     GameBase::stopSequence(%this,0);
  192.     GameBase::setSequenceDirection(%this,1,0);
  193.     GameBase::pauseSequence(%this,1);
  194.     GameBase::stopSequence(%this,2);
  195.     Station::checkTarget(%this);
  196. }
  197.  
  198. function Station::onDestroyed(%this)
  199. {
  200.     Station::weaponCheck(%this);
  201.     StaticShape::objectiveDestroyed(%this);
  202.     GameBase::stopSequence(%this,0);
  203.     GameBase::stopSequence(%this,1);
  204.     GameBase::stopSequence(%this,2);
  205.     Station::checkTarget(%this);
  206.     calcRadiusDamage(%this, $DebrisDamageType, 2.5, 0.05, 25, 13, 2, 0.40, 
  207.         0.1, 250, 100); 
  208. }
  209.  
  210. function Station::weaponCheck(%this)
  211. {
  212.     if(%this.lastPlayer != "") {
  213.         %player = %this.lastPlayer;
  214.         %player.Station = "";
  215.         if(Player::getMountedItem(%player,$WeaponSlot) == -1){
  216.             if(%player.lastWeapon != "") {
  217.                 Player::useItem(%player,%player.lastWeapon);             
  218.                 %player.lastWeapon = "";
  219.               }
  220.         }                                            
  221.          %this.lastPlayer = "";
  222.       }
  223. }
  224.  
  225. function Station::getTarget(%this)
  226. {
  227.     if(GameBase::getLOSInfo(%this,1.5,"0 0 3.14")) {
  228.           // GetLOSInfo sets the following globals:
  229.           //     los::position
  230.           //     los::normal
  231.           //     los::object
  232.           %obj = getObjectType($los::object);
  233.         dbecho(3, "STATION: LOS got " @ %obj);
  234.           if (%obj == "Player") {
  235.          if( Player::isAiControlled( $los::object ) != "True" ) {
  236.                return $los::object;
  237.          }
  238.         }
  239.     }
  240.     dbecho(3, "STATION: LOS Got None");
  241.     return -1;
  242. }    
  243.  
  244. function Station::onCollision(%this, %object)
  245. {
  246.     if(%this.target == ""){
  247.         dbecho(3, "STATION: Collision (" @ %this @ "," @ %object @ ")");
  248.         %obj = getObjectType(%object);
  249.         if (%obj == "Player" && isPlayerBusy(%object) == 0) {
  250.                %client = Player::getClient(%object);
  251.              if(GameBase::getTeam(%object) == GameBase::getTeam(%this) || GameBase::getTeam(%this) == -1) {
  252.                 if (GameBase::getDamageState(%this) == "Enabled") {
  253.                     if (GameBase::isPowered(%this)) { 
  254.                         if(%this.enterTime == "")
  255.                             %this.enterTime = getSimTime();
  256.                         GameBase::setActive(%this,true);
  257.                     }
  258.                     else 
  259.                         Client::sendMessage(%client,0,"Unit is not powered");
  260.                 }
  261.                 else 
  262.                     Client::sendMessage(%client,0,"Unit is disabled");
  263.             }
  264.             else if(Station::getTarget(%this) == %object)
  265.           {
  266.                 %curTime = getSimTime();
  267.                 if(%curTime - %object.stationDeniedStamp > 3.5 && GameBase::getDamageState(%this) == "Enabled") {
  268.                     Client::clearItemShopping(%client);
  269.                     Station::onDeactivate(%this);
  270.                     Station::onEndSequence(%this,1);
  271.                     if(Client::getGuiMode(%client) != 1)
  272.                         Client::setGuiMode(%client,1);
  273.                     %object.stationDeniedStamp = %curTime;
  274.                     Client::sendMessage(%client,0,"--ACCESS DENIED-- Wrong Team ~waccess_denied.wav");
  275.                 }
  276.             }
  277.         }
  278.     }
  279. }
  280.  
  281. function Station::itemsToResupply(%player)
  282. {
  283.     %cnt = 0;
  284.     %cnt = %cnt + AmmoStation::resupply(%player,"",RepairPatch,1);
  285.     %cnt = %cnt + AmmoStation::resupply(%player,"",Grenade,2);
  286.     %cnt = %cnt + AmmoStation::resupply(%player,"",RepairKit,1);
  287.     %cnt = %cnt + AmmoStation::resupply(%player,ChainGun,BulletAmmo,20);
  288.     %cnt = %cnt + AmmoStation::resupply(%player,PlasmaGun,PlasmaAmmo,5);
  289.     %cnt = %cnt + AmmoStation::resupply(%player,GrenadeLauncher,GrenadeAmmo,2);
  290.     %cnt = %cnt + AmmoStation::resupply(%player,DiscLauncher,DiscAmmo,2);
  291.     %cnt = %cnt + AmmoStation::resupply(%player,Mortar,MortarAmmo,2);
  292.     return %cnt;
  293. }
  294.  
  295. //----------------------------------------------------------------------------
  296. // Deployable stations
  297.  
  298. function DeployableStation::onActivate(%this)
  299. {
  300.     //echo("Activate " @ %this);
  301.     %obj = Station::getTarget(%this);
  302.     if (%obj != -1) {
  303.         GameBase::playSequence(%this,1,"activate");
  304.         GameBase::setSequenceDirection(%this,1,1);
  305.     }
  306.     else 
  307.         GameBase::setActive(%this,false);
  308. }
  309.  
  310.  
  311. function DeployableStation::onEndSequence(%this,%thread)
  312. {
  313.    if(!%thread) {
  314.         %this.deployed = 1;
  315.         GameBase::playSequence(%this,2,"power");
  316.     }
  317. }
  318.  
  319. function DeployableStation::deploy(%this)
  320. {
  321.     GameBase::playSequence(%this,0,"deploy");
  322. }
  323.  
  324. function DeployableStation::onDeactivate(%this)
  325. {
  326.     //echo("Dectivate " @ %this);
  327.     GameBase::stopSequence(%this,1);
  328. }
  329.  
  330. function DeployableStation::onEnabled(%this)
  331. {
  332.     GameBase::playSequence(%this,2,"power");
  333. }
  334.  
  335. function DeployableStation::onDisabled(%this)
  336. {
  337.     GameBase::stopSequence(%this,2);
  338.     GameBase::stopSequence(%this,1);
  339.     Station::checkTarget(%this);
  340. }
  341.  
  342. function DeployableStation::onDestroyed(%this)
  343. {
  344.     DeployableStation::onDisabled(%this);
  345.     %stationName = GameBase::getDataName(%this);
  346.  
  347.     if(%stationName == DeployableInvStation) 
  348.         $TeamItemCount[GameBase::getTeam(%this) @ "DeployableInvPack"]--;
  349.     else if( %stationName == DeployableAmmoStation) 
  350.           $TeamItemCount[GameBase::getTeam(%this) @ "DeployableAmmoPack"]--;
  351.     calcRadiusDamage(%this, $DebrisDamageType, 2.5, 0.05, 25, 13, 2, 0.30, 
  352.         0.1, 200, 100); 
  353.     Station::weaponCheck(%this);
  354. }
  355.  
  356. function DeployableStation::onCollision(%this, %object)
  357. {
  358.     //echo("Collision (" @ %this @ ",    " @ %object @ ")");
  359.     %obj = getObjectType(%object);
  360.     if (%obj == "Player" && isPlayerBusy(%object) == 0) {
  361.            %client = Player::getClient(%object);
  362.         if(GameBase::getTeam(%object) == GameBase::getTeam(%this) || GameBase::getTeam(%this) == -1) {
  363.             if (GameBase::getDamageState(%this) == "Enabled") {
  364.                 if(%this.enterTime == "") 
  365.                     %this.enterTime = getSimTime();
  366.                 GameBase::setActive(%this,true);
  367.             }
  368.             else 
  369.                 Client::sendMessage(%client,0,"Unit is disabled");
  370.         }
  371.       else if(Station::getTarget(%this) == %object) {
  372.             %curTime = getSimTime();
  373.             if(%curTime - %object.stationDeniedStamp > 3.5 && GameBase::getDamageState(%this) == "Enabled") {
  374.                 %object.stationDeniedStamp = %curTime;
  375.                 Client::sendMessage(%client,0,"--ACCESS DENIED-- Wrong Team ~waccess_denied.wav");
  376.             }
  377.         }
  378.     }
  379. }
  380.  
  381. //----------------------------------------------------------------------------
  382.  
  383. //----------------------------------------------------------------------------
  384.  
  385. StaticShapeData AmmoStation
  386. {
  387.    description = "Ammo Supply Unit";
  388.     shapeFile = "ammounit";
  389.     className = "Station";
  390.     visibleToSensor = true;
  391.     sequenceSound[0] = { "activate", SoundActivateAmmoStation };
  392.     sequenceSound[1] = { "power", SoundAmmoStationPower };
  393.     sequenceSound[2] = { "use", SoundUseAmmoStation };
  394.     maxDamage = 1.0;
  395.     debrisId = flashDebrisLarge;
  396.     mapFilter = 4;
  397.     mapIcon = "M_station";
  398.     damageSkinData = "objectDamageSkins";
  399.     shadowDetailMask = 16;
  400.    explosionId = flashExpLarge;
  401. };
  402.  
  403. function AmmoStation::onEndSequence(%this,%thread)
  404. {
  405.     //echo("End Seq ",%thread);
  406.     %player = Station::getTarget(%this);
  407.     if(%this.clTeamEnergy == "")
  408.         %this.clTeamEnergy = (Player::getClient(%player)).TeamEnergy;
  409.     if (Station::onEndSequence(%this,%thread)) {    
  410.         %weapon = Player::getMountedItem(%player,$WeaponSlot);
  411.         if(%weapon != -1) {
  412.             %player.lastWeapon = %weapon;
  413.             Player::unMountItem(%player,$WeaponSlot);
  414.         }
  415.         AmmoStation::onResupply(%this);
  416.     }
  417. }                                    
  418.                                             
  419. function AmmoStation::onResupply(%this)
  420. {
  421.     if (GameBase::isActive(%this)) {
  422.         %player = Station::getTarget(%this);
  423.         if (%player != -1 && %this.lastPlayer == %player) {
  424.             // Hardcoded here for the ammo types
  425.             %cnt = Station::itemsToResupply(%player);
  426.             if(getSimTime() - %this.enterTime > 11)
  427.                 %cnt = 0;
  428.             if (%cnt != 0) {
  429.                 %player.waitThrowTime = getSimTime();
  430.                 schedule("AmmoStation::onResupply(" @ %this @ ");",0.5,%this);
  431.                 return;
  432.             }
  433.             %player.Station = "";
  434.             %client = Player::getClient(%player);
  435.             %this.target = "";
  436.             Client::sendMessage(%client,0,"Resupply Complete");
  437.             Client::setInventoryText(%client, "<f1><jc>TEAM ENERGY: " @ $TeamEnergy[Client::getTeam(%client)]);
  438.  
  439.             if(Player::getMountedItem(%player,$WeaponSlot) == -1){
  440.                 if(%player.lastWeapon != "") {
  441.                     Player::useItem(%player,%player.lastWeapon);             
  442.                     %player.lastWeapon = "";
  443.                   }
  444.             }            
  445.         }
  446.         else if(%this.target != "") {
  447.             %player = Client::getOwnedObject(%this.target);
  448.             %player.Station = "";
  449.             if(Player::getMountedItem(%player,$WeaponSlot) == -1){
  450.                 if(%player.lastWeapon != "") {
  451.                     Player::useItem(%player,%player.lastWeapon);             
  452.                     %player.lastWeapon = "";
  453.                   }
  454.             }        
  455.             %this.target = "";
  456.         }
  457.         else {
  458.             %this.lastPlayer.Station = "";
  459.             if(Player::getMountedItem(%this.lastPlayer,$WeaponSlot) == -1){
  460.                 if(%this.lastPlayer.lastWeapon != "") {
  461.                     Player::useItem(%this.lastPlayer,%this.lastPlayer.lastWeapon);             
  462.                     %this.lastPlayer.lastWeapon = "";
  463.                   }
  464.             }
  465.             %this.target = "";
  466.         }
  467.         GameBase::setActive(%this,false);
  468.         %this.enterTime="";
  469.     }
  470. }
  471.                                                      
  472. function AmmoStation::resupply(%player,%weapon,%item,%delta)
  473. {
  474.     %delta = checkResources(%player,%item,%delta,1);        
  475.     if(%delta > 0) {                        
  476.         if(%item == RepairPatch) {
  477.             teamEnergyBuySell(%player,%item.price * %delta * -1);
  478.             GameBase::repairDamage(%player,0.06);
  479.              return %delta;
  480.         }
  481.         else if (%item == MineAmmo || %item == Grenade || %item == RepairKit) {
  482.             teamEnergyBuySell(%player,%item.price * %delta * -1);
  483.             Player::incItemCount(%player,%item,%delta);
  484.              return %delta;
  485.         }
  486.         else if (Player::getItemCount(%player,%weapon)) {
  487.             teamEnergyBuySell(%player,%item.price * %delta * -1);
  488.             Player::incItemCount(%player,%item,%delta);
  489.              return %delta;
  490.         }
  491.     }
  492.     return 0;
  493. }
  494.  
  495. //----------------------------------------------------------------------------
  496. StaticShapeData DeployableAmmoStation
  497. {
  498.    description = "Remote Ammo Unit";
  499.     shapeFile = "ammounit_remote";
  500.     className = "DeployableStation";
  501.     maxDamage = 0.25;
  502.     sequenceSound[0] = { "deploy", SoundActivateMotionSensor };
  503.     sequenceSound[1] = { "use", SoundUseAmmoStation };
  504.     sequenceSound[2] = { "power", SoundAmmoStationPower };
  505.  
  506.     visibleToSensor = true;
  507.     shadowDetailMask = 4;
  508.     castLOS = true;
  509.     supression = false;
  510.     supressable = false;
  511.     mapFilter = 4;
  512.     mapIcon = "M_station";
  513.     debrisId = flashDebrisSmall;
  514.     damageSkinData = "objectDamageSkins";
  515.    explosionId = flashExpMedium;
  516. };
  517.  
  518.  
  519. function DeployableAmmoStation::onAdd(%this)
  520. {
  521.     schedule("DeployableStation::deploy(" @ %this @ ");",1,%this);
  522.     if (GameBase::getMapName(%this) == "") 
  523.         GameBase::setMapName (%this, "R-Ammo Station");
  524.     %this.Energy = $RemoteAmmoEnergy;
  525. }
  526.  
  527. function DeployableAmmoStation::onActivate(%this)
  528. {
  529.     if(%this.deployed == 1) {
  530.         GameBase::playSequence(%this,1,"use");
  531.         //echo("Activate " @ %this);
  532.         schedule("AmmoStation::onResupply(" @ %this @ ");",0.5,%this);
  533.         %this.lastPlayer = Station::getTarget(%this);
  534.         %player = %this.lastPlayer; 
  535.         %player.Station = %this;
  536.         %this.target = Player::getClient(Station::getTarget(%this));
  537.         %weapon = Player::getMountedItem(%player,$WeaponSlot);
  538.         if(%weapon != -1) {
  539.             %player.lastWeapon = %weapon;
  540.             Player::unMountItem(%player,$WeaponSlot);
  541.         }
  542.     }
  543.     else 
  544.         GameBase::setActive(%this,false);    
  545. }
  546.  
  547.  
  548. //----------------------------------------------------------------------------
  549.  
  550. StaticShapeData DeployableInvStation
  551. {
  552.     description = "Remote Inv Unit";
  553.     shapeFile = "invent_remote";
  554.     className = "DeployableStation";
  555.     maxDamage = 0.25;
  556.     sequenceSound[0] = { "deploy", SoundActivateMotionSensor };
  557.     sequenceSound[1] = { "use", SoundUseAmmoStation };
  558.     sequenceSound[2] = { "power", SoundInventoryStationPower };            
  559.     visibleToSensor = true;
  560.     shadowDetailMask = 4;
  561.     castLOS = true;
  562.     supression = false;
  563.     supressable = false;
  564.     mapFilter = 4;
  565.     mapIcon = "M_station";
  566.     debrisId = flashDebrisMedium;
  567.     damageSkinData = "objectDamageSkins";
  568.    explosionId = flashExpSmall;
  569. //    triggerRadius = 1.5;
  570. };
  571.  
  572.  
  573. function DeployableInvStation::onAdd(%this)
  574. {
  575.     schedule("DeployableStation::deploy(" @ %this @ ");",1,%this);
  576.     if (GameBase::getMapName(%this) == "") 
  577.         GameBase::setMapName (%this, "R-Inv Station");
  578.     %this.Energy = $RemoteInvEnergy;
  579. }
  580.  
  581. function DeployableInvStation::onActivate(%this)
  582. {
  583.     if(%this.deployed == 1) {
  584.         GameBase::playSequence(%this,1,"use");
  585.         //echo("Activate " @ %this);
  586.          InventoryStation::onResupply(%this,"RemoteInvList");
  587.         %this.lastPlayer = Station::getTarget(%this);
  588.     }
  589.     else
  590.         GameBase::setActive(%this,false);
  591. }
  592.  
  593.  
  594. //----------------------------------------------------------------------------
  595.  
  596. StaticShapeData InventoryStation
  597. {
  598.    description = "Station Supply Unit";
  599.     shapeFile = "inventory_sta";
  600.     className = "Station";
  601.     visibleToSensor = true;
  602.     sequenceSound[0] = { "activate", SoundActivateInventoryStation };
  603.     sequenceSound[1] = { "power", SoundInventoryStationPower };
  604.     sequenceSound[2] = { "use", SoundUseInventoryStation };
  605.     maxDamage = 1.0;
  606.     debrisId = flashDebrisLarge;
  607.     mapFilter = 4;
  608.     mapIcon = "M_station";
  609.     damageSkinData = "objectDamageSkins";
  610.     shadowDetailMask = 16;
  611.     triggerRadius = 1.5;
  612.    explosionId = flashExpLarge;
  613. };
  614.  
  615. function InventoryStation::onEndSequence(%this,%thread)
  616. {
  617.     //echo("End Seq ",%thread);
  618.     if (Station::onEndSequence(%this,%thread)) 
  619.         InventoryStation::onResupply(%this,"InvList");
  620. }
  621.  
  622. function InventoryStation::onResupply(%this,%InvShopList)
  623. {
  624.     dbecho(3, "STATION::Resupply");
  625.     if (GameBase::isActive(%this)) {
  626.         %player = Station::getTarget(%this);
  627.         if (%player != -1 && %this.lastPlayer == %player) {
  628.             %client = Player::getClient(%player);
  629.             if (%this.target != %client) {
  630.                 %player.Station = %this;
  631.                 setupShoppingList(%client,%this,%InvShopList);
  632.                 updateBuyingList(%client);
  633.                 %this.target = %client;
  634.                 %this.clTeamEnergy = %client.TeamEnergy;
  635.             if(!%client.noEnterInventory)
  636.                    Client::setGuiMode(%client,$GuiModeInventory);
  637.                 Client::sendMessage(%client,0,"Station Access On");
  638.                 %player.ResupplyFlag = 1;
  639.                 %weapon = Player::getMountedItem(%player,$WeaponSlot);
  640.                 if(%weapon != -1) {
  641.                     %player.lastWeapon = %weapon;
  642.                     Player::unMountItem(%player,$WeaponSlot);
  643.                 }
  644.             }
  645.             %player.waitThrowTime = getSimTime();
  646.             schedule("InventoryStation::onResupply(" @ %this @ ");",0.5,%this);
  647.             if(%player.ResupplyFlag) 
  648.                %player.ResupplyFlag = resupply(%this);
  649.             return;
  650.         }
  651.         GameBase::setActive(%this,false);
  652.     }
  653.     if (%this.target != "") {       
  654.         %player = Client::getOwnedObject(%this.target);
  655.         Client::clearItemShopping(%this.target);
  656.         Client::sendMessage(%this.target,0,"Station Access Off");
  657.         Station::onEndSequence(%this);
  658.         if(GameBase::getDataName(%player.Station) == DeployableInvStation) {
  659.             Client::setInventoryText(%this.target, "<f1><jc>TEAM ENERGY: " @ $TeamEnergy[Client::getTeam(%this.target)]);
  660.             if(Client::getGuiMode(%this.target) != 1)
  661.                 Client::setGuiMode(%this.target,1);
  662.             %player.Station = "";
  663.               %this.target = "";
  664.         }
  665.         if(Player::getMountedItem(%player,$WeaponSlot) == -1){
  666.             if(%player.lastWeapon != "") {
  667.                 Player::useItem(%player,%player.lastWeapon);             
  668.                 %player.lastWeapon = "";
  669.               }
  670.         }
  671.     }
  672.     %this.enterTime="";
  673. }
  674.  
  675.  
  676. function resupply(%this)
  677. {
  678.     if (GameBase::isActive(%this)) {
  679.         %player = Station::getTarget(%this);
  680.         if (%player != -1) {
  681.             // Hardcoded here for the ammo types
  682.             %cnt = Station::itemsToResupply(%player);
  683.             if(getSimTime() - %this.enterTime > 11)
  684.                 %cnt = 0;
  685.             %client = Player::getClient(%player);
  686.             if (%cnt != 0) {
  687.                 updateBuyingList(%client);
  688.                 return 1;
  689.             }
  690.             Client::sendMessage(%client,0,"Resupply Complete");
  691.             return 0;
  692.         }
  693.     }
  694.     return 0;
  695. }
  696.  
  697.  
  698. //----------------------------------------------------------------------------
  699. function setupShoppingList(%client,%station,%ListType)
  700. {
  701.     %max = getNumItems();
  702.     if(%ListType == "InvList") {
  703.         for (%i = 0; %i < %max; %i = %i + 1) {
  704.             %item = getItemData(%i);
  705.             if($InvList[%item] != "" && $InvList[%item] && !%station.dontSell[%item]) 
  706.                 Client::setItemShopping(%client, %item);
  707.             else if(%item.className == Armor && !%station.dontSell[%item])  
  708.                 Client::setItemShopping(%client, %item);
  709.         }
  710.     }
  711.     else if(%ListType == "RemoteInvList") {
  712.         for (%i = 0; %i < %max; %i = %i + 1) {
  713.             %item = getItemData(%i);
  714.             if($RemoteInvList[%item] != "" && $RemoteInvList[%item] && !%station.dontSell[%item]) 
  715.                 Client::setItemShopping(%client, %item);
  716.        }
  717.     }
  718.     else {
  719.         for (%i = 0; %i < %max; %i = %i + 1) {                        
  720.             %item = getItemData(%i);
  721.             if($VehicleInvList[%item] != "" && $VehicleInvList[%item] && !%station.dontSell[%item]) 
  722.                 Client::setItemShopping(%client, %item);
  723.         }
  724.     }
  725. }
  726.  
  727. function updateBuyingList(%client)
  728. {
  729.    Client::clearItemBuying(%client);
  730.     %station = (Client::getOwnedObject(%client)).Station;
  731.     %stationName = GameBase::getDataName(%station); 
  732.     if(%stationName == DeployableInvStation || %stationName == DeployableAmmoStation) {
  733.         %energy = %station.Energy;
  734.        Client::setInventoryText(%client, "<f1><jc>STATION ENERGY: " @ %energy );
  735.     }
  736.    else {
  737.         %energy = $TeamEnergy[Client::getTeam(%client)];
  738.         Client::setInventoryText(%client, "<f1><jc>TEAM ENERGY: " @ %energy);
  739.     }
  740.     %armor = Player::getArmor(%client);
  741.     %max = getNumItems();
  742.     for (%i = 0; %i < %max; %i++) {
  743.         %item = getItemData(%i);
  744.       if(!%item.showInventory)
  745.          continue;
  746.         if($ItemMax[%armor, %item] != "" && Client::isItemShoppingOn(%client,%i)) {
  747.             %extraAmmo = 0;
  748.             if(Player::getMountedItem(%client,$BackpackSlot) == ammopack)
  749.                 %extraAmmo = $AmmoPackMax[%item];
  750.             if($ItemMax[%armor, %item] + %extraAmmo > Player::getItemCount(%client,%item))    {
  751.                 if(%energy >= %item.price ) {
  752.                     if(%item.className == Weapon) {
  753.                         if(Player::getItemClassCount(%client,"Weapon") < $MaxWeapons[%armor])                    
  754.                             Client::setItemBuying(%client, %item);
  755.                     }
  756.                     else { 
  757.                         if($TeamItemMax[%item] != "") {                        
  758.                             if($TeamItemCount[GameBase::getTeam(%client) @ %item] < $TeamItemMax[%item])
  759.                                 Client::setItemBuying(%client, %item);
  760.                         }
  761.                         else
  762.                             Client::setItemBuying(%client, %item);
  763.                     }
  764.                 }
  765.            }
  766.         }
  767.         else if(%item.className == Armor && %item != $ArmorName[%armor] && Client::isItemShoppingOn(%client,%i)) 
  768.             Client::setItemBuying(%client, %item);
  769.         else if(%item.className == Vehicle && $TeamItemCount[client::getTeam(%client) @ %item] < $TeamItemMax[%item] && Client::isItemShoppingOn(%client,%i))
  770.             Client::setItemBuying(%client, %item);
  771.     }
  772. }
  773.  
  774. //----------------------------------------------------------------------------
  775. StaticShapeData CommandStation
  776. {
  777.    description = "Command Station";
  778.     shapeFile = "cmdpnl";
  779.     className = "Station";
  780.     visibleToSensor = true;
  781.     sequenceSound[0] = { "activate", SoundActivateCommandStation };
  782.     sequenceSound[1] = { "power", SoundCommandStationPower };
  783.     sequenceSound[2] = { "use", SoundUseCommandStation };
  784.     maxDamage = 1.0;
  785.     debrisId = flashDebrisMedium;
  786.     mapFilter = 4;
  787.     mapIcon = "M_station";
  788.     damageSkinData = "objectDamageSkins";
  789.     shadowDetailMask = 16;
  790.     triggerRadius = 1.5;
  791.    explosionId = flashExpLarge;
  792. };
  793.  
  794. function CommandStation::onEndSequence(%this,%thread)
  795. {
  796.     //echo("End Seq ",%thread);
  797.     (Client::getOwnedObject(%this.target)).Station = "";
  798.     %this.target = "";
  799.     if (Station::onEndSequence(%this,%thread)) 
  800.         CommandStation::onResupply(%this);
  801. }
  802.  
  803. function CommandStation::onResupply(%this)
  804. {
  805.     if (GameBase::isActive(%this)) {
  806.         %player = Station::getTarget(%this);
  807.         if (%player != -1 && %this.lastPlayer == %player) {
  808.             %client = Player::getClient(%player);
  809.             if (%this.target != %client) {
  810.                 %this.target = %client;
  811.                 %player.CommandTag = 1;
  812.                 Client::setGuiMode(%client,2);
  813.                 Client::sendMessage(%client,0,"Command Access On");
  814.                 %player.station = %this;
  815.             }
  816.             schedule("CommandStation::onResupply(" @ %this @ ");",0.5,%this);
  817.             return;
  818.         }
  819.         GameBase::setActive(%this,false);
  820.     }
  821.     if (%this.target) {
  822.         Client::sendMessage(%this.target,0,"Command Access Off");
  823.         (Client::getOwnedObject(%this.target)).CommandTag = "";
  824.         checkControlUnmount(%this.target);
  825.     }
  826.     (Client::getOwnedObject(%this.target)).Station = "";
  827.     %this.target = "";
  828. }
  829.  
  830.  
  831. //----------------------------------------------------------------------------
  832. StaticShapeData VehicleStation
  833. {
  834.    description = "Station Vehicle Unit";
  835.     shapeFile = "vehi_pur_pnl";
  836.     className = "Station";
  837.     visibleToSensor = true;
  838.     sequenceSound[0] = { "activate", SoundActivateInventoryStation };
  839.     sequenceSound[1] = { "power", SoundInventoryStationPower };
  840.     sequenceSound[2] = { "use", SoundUseInventoryStation };
  841. //   explosionId = DebrisExp;
  842.     maxDamage = 1.0;
  843.     debrisId = flashDebrisLarge;
  844.     mapFilter = 4;
  845.     mapIcon = "M_station";
  846.     damageSkinData = "objectDamageSkins";
  847.     shadowDetailMask = 16;
  848.     triggerRadius = 1.5;
  849.    explosionId = flashExpLarge;
  850. };
  851.  
  852. function VehicleStation::onEndSequence(%this,%thread)
  853. {
  854.     //echo("End Seq ",%thread);
  855.     if (Station::onEndSequence(%this,%thread)) 
  856.         VehicleStation::onBuyingVechicle(%this);
  857. }
  858.  
  859. function VehicleStation::onBuyingVechicle(%this)
  860. {
  861.     if (GameBase::isActive(%this)) {
  862.         %player = Station::getTarget(%this);
  863.         if (%player != -1 && %this.lastPlayer == %player) {
  864.             %client = Player::getClient(%player);
  865.             if (%this.target != %client) {
  866.                 setupShoppingList(%client,%this,"VehicleInvList");
  867.                 updateBuyingList(%client);
  868.                 %this.target = %client;
  869.                 %this.clTeamEnergy = %client.TeamEnergy;
  870.                 Client::setGuiMode(%client,4);
  871.                 Client::sendMessage(%client,0,"Station Access On");
  872.                 %player.Station = %this;
  873.                  %numItems = Group::objectCount(GetGroup(%this));
  874.                 for(%i = 0 ; %i<%numItems ; %i++) { 
  875.                     %obj = Group::getObject(GetGroup(%this), %i);
  876.                     %name = GameBase::getDataName(%obj); 
  877.                     if(%name == VehiclePad) { 
  878.                         %this.vehiclePad = %obj;
  879.                         GameBase::setActive(%this.vehiclePad,true);
  880.                         %i = %numItems;
  881.                     }
  882.                 }
  883.             }
  884.             schedule("VehicleStation::onBuyingVechicle(" @ %this @ ");",0.5,%this);
  885.             return;
  886.         }
  887.         GameBase::setActive(%this,false);
  888.     }
  889.     if (%this.target) {       
  890.         Client::clearItemShopping(%this.target);
  891.         Client::sendMessage(%this.target,0,"Station Access Off");
  892.         Station::onEndSequence(%this);
  893.     }
  894. }
  895.  
  896.  
  897. function VehicleStation::checkBuying(%client,%item)
  898. {
  899.     %player = Client::getOwnedObject(%client);
  900.     %obj = %player.Station.vehiclePad;
  901.     if(GameBase::isPowered(%obj) && GameBase::getDamageState(%obj) == "Enabled") {
  902.         %markerPos = GameBase::getPosition(%obj);
  903.           %set = newObject("set",SimSet);
  904.         %mask = $VehicleObjectType | $SimPlayerObjectType | $ItemObjectType;
  905.         %objInWay = containerBoxFillSet(%set,%mask,%markerPos,6,5,14,1);
  906.         %station = %player.Station;
  907.         if(%objInWay == 1) {
  908.             %object = Group::getObject(%set, 0);    
  909.             %sName = GameBase::getDataName(%object);
  910.             if(%sName.className == Vehicle) {
  911.                 if(GameBase::getControlClient(%object) == -1) {
  912.                     if(%station.fadeOut == "") {
  913.                         if(%item != $VehicleToItem[%sname]) {
  914.                             %object.fading = 1;
  915.                             %station.fadeOut=1;
  916.                             teamEnergyBuySell(%player,$VehicleToItem[%sName].price);
  917.                             $TeamItemCount[Client::getTeam(%client) @ ($VehicleToItem[%sName])]--;
  918.                             GameBase::startFadeOut(%object);
  919.                             schedule("deleteObject(" @ %object @ ");",2.5,%object);
  920.                             schedule(%object @ ".fading = \"\";",2.5,%object);
  921.                             schedule(%station @ ".fadeOut = \"\";",2.5,%station);
  922.                             %objInWay--;
  923.                         }
  924.                         else
  925.                             return 2;
  926.                     }
  927.                     else {
  928.                         Client::SendMessage(%client,0,"ERROR - Vehicle creation pad busy"); 
  929.                         return 0;
  930.                     }
  931.                 }
  932.                 else { 
  933.                     Client::SendMessage(%client,0,"ERROR - Vehicle in creation area is mounted");
  934.                     return 0;
  935.                 }
  936.             } 
  937.         }
  938.         if(!%objInWay) {
  939.             if (checkResources(%player,%item,1)) {
  940.                 %vehicle = newObject("",flier,$DataBlockName[%item],true);
  941.                 Gamebase::setMapName(%vehicle,%item.description);
  942.             %vehicle.clLastMount = %client;
  943.                 addToSet("MissionCleanup", %vehicle);
  944.                   %vehicle.fading = 1;
  945.                 GameBase::setTeam(%vehicle,Client::getTeam(%client));
  946.                 if(%object.fading) { 
  947.                     schedule("GameBase::startFadeIn(" @ %vehicle @ ");",2.5,%vehicle);
  948.                     schedule("GameBase::setPosition(" @ %vehicle @ ",\"" @ %markerPos @ "\");",2.5,%vehicle);
  949.                     schedule("GameBase::setRotation(" @ %vehicle @ ",\"" @ GameBase::getRotation(%obj) @ "\");",2.5,%vehicle);
  950.                     schedule(%vehicle @ ".fading = \"\"; VehiclePad::checkSeq(" @ %obj @ "," @ %player.Station @ ");",5,%vehicle);
  951.                     %obj.busy = getSimTime() + 5;
  952.                 }
  953.                 else {
  954.                     GameBase::startFadeIn(%vehicle);
  955.                     GameBase::setPosition(%vehicle,%markerPos);
  956.                     GameBase::setRotation(%vehicle,GameBase::getRotation(%obj));
  957.                      schedule(%vehicle @ ".fading = \"\"; VehiclePad::checkSeq(" @ %obj @ "," @ %player.Station @ ");",3,%vehicle);
  958.                     %obj.busy = getSimTime() + 3;
  959.                 }
  960.                 deleteObject(%set);
  961.                 $TeamItemCount[Client::getTeam(%client) @ %item]++;
  962.                 return 1;
  963.             }
  964.         }
  965.         else
  966.             Client::SendMessage(%client,0,"ERROR - Object in vehicle creation area");
  967.         deleteObject(%set);
  968.     }    
  969.     else
  970.         Client::SendMessage(%client,0,"ERROR - Vehicle Pad Disabled");
  971.  
  972.     return 0;
  973. }
  974.  
  975.  
  976. StaticShapeData VehiclePad
  977. {
  978.    description = "Vehicle Pad";
  979.     shapeFile = "vehi_pur_poles";
  980.     className = "Station";
  981.     visibleToSensor = true;
  982.     sequenceSound[0] = { "activate", SoundActivateInventoryStation };
  983.     sequenceSound[1] = { "power", SoundInventoryStationPower };
  984.     sequenceSound[2] = { "use", SoundUseInventoryStation };
  985.     maxDamage = 1.0;
  986.     debrisId = flashDebrisLarge;
  987.     mapFilter = 4;
  988.     mapIcon = "M_station";
  989.    explosionId = flashExpLarge;
  990.     damageSkinData = "objectDamageSkins";
  991. };
  992.  
  993.  
  994.  
  995. function VehiclePad::onActivate(%this)
  996. {
  997.     GameBase::playSequence(%this,1,"use");
  998. }
  999.  
  1000. function VehiclePad::onDeactivate(%this)
  1001. {
  1002.     GameBase::stopSequence(%this,1);
  1003. }
  1004.  
  1005. function VehiclePad::onEnabled(%this)
  1006. {
  1007. }
  1008.  
  1009. function VehiclePad::onAdd(%this)
  1010. {
  1011. }
  1012.  
  1013. function VehiclePad::onCollision(%this, %object)
  1014. {
  1015. }
  1016.  
  1017. function VehiclePad::onPower(%this,%power,%generator)
  1018. {
  1019.     if(!%power)
  1020.         GameBase::setActive(%this,false);
  1021. }
  1022.  
  1023. function VehiclePad::checkSeq(%this, %station)
  1024. {
  1025.     if(%station.target == "")
  1026.         GameBase::setActive(%this,false);
  1027. }
  1028.